﻿Imports Mysoft.Map.Application.Controls
Imports Mysoft.Map.Application.Types
Imports System.Xml
Imports Mysoft.Map.Data
Imports System.Data

Partial Class Xmxx_ZxPlanSet
    Inherits Mysoft.Map.Application.Security.AppPage

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码

        Dim strProjGUID As String
        strProjGUID = Request.QueryString("projguid")
        If Not strProjGUID Is Nothing And strProjGUID <> "" Then
            appGrid.CustomFilter = " jd_ZxPlanSet.ProjGUID = '" & strProjGUID & "'"
        Else
            appGrid.CustomFilter = " 1=2 "
        End If
        '　add by　yanghuan　2008-11-18:  判断是否有删除专项计划的权限
        If Mysoft.Map.Application.Security.User.CheckUserRight(Session("UserGUID"), "02020101", "53") Then
            txtIsDelete.Text = "1"
        Else
            txtIsDelete.Text = "0"
        End If
    End Sub
End Class
